Option Explicit
Sub A_Sample046()
    Dim myRng As Range
    Dim i     As Long
    i = 517			'ws
    'ǳƨ즹
    Set myRng = Cells(i)
    MsgBox myRng.Address
    Set myRng = Nothing		'
End Sub
